home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / dorauset.plp < prev    next >
Text File  |  1993-11-30  |  35KB  |  1,313 lines
  1. /*    テキストファイル作成処理    */
  2. %SHINKI{
  3.     %savememo{
  4.         footnote({送信用テキストファイルを新規作成します});
  5.         mkdir2(TEMP);%file1    @crefile(UP,{res});
  6.         CloseAllMemo;mwrite(UP2|file1,memono);file:=UP2|file1;
  7.         mopen(memono);mclose(3);im({No})};
  8.     %memono    @case    (@mlast==9,{Yes},{im({9})},{No},{im(@mlast+1)});
  9.     footnote({送信用テキストファイルを新規作成します});
  10.     CloseAllMemo;
  11.     madd(memono,{\n});mclear(memono);mopen(memono,0,21,639,459,{w});
  12.     loop    ({footnote({終了取消参照清書},{b});waitx();
  13.         case    (@xtype,
  14.             101,{savememo},    201,{savememo},
  15.             102,{cancel},    202,{cancel},
  16.             103,{newmemo},    203,{newmemo},
  17.             104,{rewrite},    204,{rewrite},
  18.             ,{im({Yes})});
  19.         })};
  20. /*    アップ用文書清書    */
  21. %rewrite{
  22.     footnote({編集中のメモ内容を清書しています});
  23.     CloseAllMemo;
  24.     dispoff(!DEBUG);
  25.     %cdir @getcdir;
  26.     setcdir(CDIR);
  27.     command({del }|TEMP2|{_moptext.tmp});
  28.     command({del }|TEMP2|{_moptext.new});
  29.     mwrite(TEMP2|{_moptext.tmp},memono);
  30.     command({txf -f -i }|TEMP2|{_moptext.tmp -o }|TEMP2|{_moptext.new});
  31.     dispoff({No});
  32.     case    (@filechk(TEMP2|{_moptext.new}),
  33.         {Yes},
  34.         {
  35.         mclear(memono);
  36.         mread(TEMP2|{_moptext.new},memono);
  37.         %memomax    @mlast;
  38.         var    memono1    [2];
  39.         memono1:=memono+1;
  40.         loop    ({
  41.             case    (memono1<=memomax,
  42.                 {Yes},
  43.                 {
  44.                 case(@mcheck!=0,{Yes},{mclose(1)});
  45.                 mopen(memono1);
  46.                 });
  47.             memono1:=memono1+1;
  48.             im(memono1<=memomax);
  49.             });
  50.         case    (memomax>memono,
  51.             {Yes},
  52.             {
  53.             case(@mcheck!=0,{Yes},{mclose(1)});
  54.             mopen(memono,0,21,639,399,{w});
  55.             },
  56.             {No},
  57.             {
  58.             case(@mcheck!=0,{Yes},{mclose(1)});
  59.             mopen(memono,0,21,639,459,{w});
  60.             });
  61.         },
  62.         {No},
  63.         {
  64.         display({清書機能には TXF.EXE がパスの通った}|
  65.                 {ディレクトリに必要です\n});
  66.         wait(2);
  67.         %memomax    @mlast;
  68.         var    memono1    [1];
  69.         memono1:=memono+1;
  70.         loop    ({
  71.             case    (memono1<=memomax,
  72.                 {Yes},
  73.                 {
  74.                 case(@mcheck!=0,{Yes},{mclose(1)});
  75.                 mopen(memono1);
  76.                 });
  77.             memono1:=memono1+1;
  78.             im(memono1<=memomax);
  79.             });
  80.         case    (memomax>memono,
  81.             {Yes},
  82.             {
  83.             case(@mcheck!=0,{Yes},{mclose(1)});
  84.             mopen(memono,0,21,639,399,{w});
  85.             },
  86.             {No},
  87.             {
  88.             case(@mcheck!=0,{Yes},{mclose(1)});
  89.             mopen(memono,0,21,639,459,{w});
  90.             });
  91.         });
  92.     setcdir(cdir);
  93.     im({Yes});
  94.     };
  95. /*　　アップ文書作成キャンセル　　*/
  96. %cancel{
  97.     SNDMSG({kaknin_f.snd});
  98.     footnote({作成中の文書を取消しますか？});
  99.     select({作成中の文書を取消しますか？},
  100.         Wtime4,{footnote({});im({Yes})},
  101.         {  は  い  },
  102.         {
  103.         CloseAllMemo;delfile(TEMP2|{_mopmemo.bak});
  104.         mwrite(TEMP2|{_mopmemo.bak},memono);mopen(memono);
  105.         mclose(3);footnote({});im({No})
  106.         },
  107.         {  いいえ  },{footnote({});im({Yes})}
  108.         )
  109.     };
  110. /*    他のファイルを参照するためにメモを開く    */
  111. %newmemo{
  112.     case    (@mlast==9,
  113.         {Yes},
  114.         {
  115.         footnote({メモ番号が一杯のため、新しいメモが開けません});
  116.         wait(2);
  117.         },
  118.         {No},
  119.         {
  120.         CloseAllMemo;
  121.         mopen(memono,0,21,639,399);
  122.         mclose(1);
  123.         %memo1    @mlast+1;
  124.         madd(memo1,{\n});
  125.         mclear(memo1);
  126.         %file1    @filesel;
  127.         case(file1<>{}&&@filechk(file1),{Yes},{mread(file1,memo1)});
  128.         mopen(memo1,0,221,639,459);
  129.         });
  130.     im({Yes});
  131.     };
  132.  
  133. /*    アップロードファイル更新    */
  134. %KOUSHIN{
  135.     [file,memono]
  136.     %savememo{
  137.         footnote({送信用テキストファイルを更新します});
  138.         CloseAllMemo;
  139.         mwrite(file,memono);im({No});
  140.         };
  141.     footnote({送信用テキストファイルを更新します});
  142.     CloseAllMemo;
  143.     madd(memono,{\n});
  144.     mclear(memono);
  145.     mread(file,memono);
  146.     mopen(memono,0,21,639,459,{w});
  147.     loop    ({
  148.         footnote({終了取消参照清書},{b});waitx();
  149.         case    (@xtype,
  150.             101,{savememo},    201,{savememo},
  151.             102,{cancel},    202,{cancel},
  152.             103,{newmemo},    203,{newmemo},
  153.             104,{rewrite},    204,{rewrite},
  154.             ,{im({Yes})});
  155.         })};
  156. /*    アップロードファイル指定    */
  157. %FILEsel1{
  158.     var    upfile    [64];
  159.     SNDMSG({erande_f.snd});
  160.     upfile:=@filesel;
  161.     case    (upfile,
  162.         {},{im({})},
  163.         ,{case    (@nochar(@getcdir)=3,
  164.             {Yes},    {upfile:=@getcdir|upfile},
  165.             {No},    {upfile:=@getcdir|{\}|upfile}
  166.             );
  167.         });
  168.     im(upfile);
  169.     };
  170. /*    アップロードファイル内容確認（テキストファイル）    */
  171. %KAKUNIN{
  172.     var    file1    [64];
  173.     var    memono    [1];
  174.     case    (@mlast==9,{Yes},{memono:=9},{No},{memono:=@mlast+1});
  175.     loop    ({
  176.         footnote({テキストファイルを選択してください});
  177.         file1:=@filesel;
  178.         case    (file1<>{},
  179.             {Yes},
  180.             {case    (@nochar(@getcdir)==3,
  181.                 {Yes},    {file1:=@getcdir|file1},
  182.                 {No},    {file1:=@getcdir|{\}|file1}
  183.                 );
  184.             });
  185.         case    (file1={}||@filechk(file1)={No},
  186.             {Yes},{file1:={}},
  187.             {No},
  188.             {
  189.             footnote({送信用テキストファイルを確認します});
  190.             CloseAllMemo;
  191.             madd(memono,{\n});
  192.             mclear(memono);
  193.             mread(file1,memono);
  194.             mopen(memono,0,21,639,459,{w});
  195.             %a    @loop    ({
  196.                     footnote({指定 次 取消},{b});
  197.                     waitx();
  198.                     case    (@xtype,
  199.                         101,{im(file1)},
  200.                         201,{im(file1)},
  201.                         102,{im({next})},
  202.                         202,{im({next})},
  203.                         103,{im({cancel})},
  204.                         203,{im({cancel})},
  205.                         ,{im({Yes})}
  206.                         );
  207.                     });
  208.             CloseAllMemo;
  209.             case    (a,
  210.                 {next},{im({Yes})},
  211.                 {cancel},{file1:={};im({No})},
  212.                 ,{im({No})}
  213.                 );
  214.             });
  215.         });
  216.     loop    ({
  217.         case(@mlast>=memono,{Yes},{mopen(@mlast);mclose(3)});
  218.         im(@mlast>=memono);
  219.         });
  220.     case(file1<>{},{Yes},{file:=file1});
  221.     };
  222. /*    アップロードファイル内容確認（ＮＡＰＬＰＳファイル）    */
  223. %KAKUNIN2{
  224.     var    file1    [64];
  225.     loop    ({
  226.         footnote({ＮＡＰＬＰＳファイルを選択してください});
  227.         file1:=@filesel({NPB});
  228.         case    (file1<>{},
  229.             {Yes},
  230.             {case    (@nochar(@getcdir)==3,
  231.                 {Yes},    {file1:=@getcdir|file1},
  232.                 {No},    {file1:=@getcdir|{\}|file1}
  233.                 );
  234.             });
  235.         case    (file1={}||@filechk(file1)={No},
  236.             {Yes},{file1:={}},
  237.             {No},
  238.             {
  239.             footnote({送信用ＮＡＰＬＰＳファイルを確認します});
  240.             CloseAllMemo;
  241.             naplps(file1);
  242.             %a    @loop    ({
  243.                     footnote({指定 次 取消},{b});
  244.                     waitx();
  245.                     case    (@xtype,
  246.                         101,{im(file1)},
  247.                         201,{im(file1)},
  248.                         102,{im({next})},
  249.                         202,{im({next})},
  250.                         103,{im({cancel})},
  251.                         203,{im({cancel})},
  252.                         ,{im({Yes})}
  253.                         );
  254.                     });
  255.             napend;
  256.             case    (a,
  257.                 {next},{im({Yes})},
  258.                 {cancel},{file1:={};im({No})},
  259.                 ,{im({No})}
  260.                 );
  261.             });
  262.         });
  263.     case(file1<>{},{Yes},{file:=file1});
  264.     };
  265. /*    ファイルコピー    */
  266. %FILECOPY{
  267.     footnote({読み込むファイルを選択してください});
  268.     setcdir(UP);    %file    @filesel;
  269.     case    (file={},
  270.         {Yes},{CloseAllMemo},
  271.         {No},
  272.         {
  273.         CloseAllMemo;
  274.         madd(memono+1,{\n});
  275.         mclear(memono+1);
  276.         case(@filechk(file),{Yes},{mread(file,memono+1)});
  277.         mopen(memono,0,21,639,240,{r});mclose(1);
  278.         mopen(memono+1,0,241,639,459,{r} );
  279.         select({このファイル内容を追加してもいいですか？},
  280.             Wtime4,{CloseAllMemo},
  281.             {  Ｏ　Ｋ　},
  282.             {
  283.             CloseAllMemo;
  284.             dispoff(!DEBUG);
  285.             command({copy }|TEMP2|{_mopres.wrk + }|file|
  286.                 { }|TEMP2|{_mopres.wrk});
  287.             dispoff({No});
  288.             mclear(memono);
  289.             mread(TEMP2|{_mopres.wrk},memono)},
  290.             {　Ｎ　Ｇ　},{CloseAllMemo}
  291.             )})};
  292. /*    手動編集    */
  293. %HANDEDIT{
  294.     CloseAllMemo;mopen(memono,0,21,639,459,{w});
  295.     loop    ({
  296.         footnote({終了　　　　　　取消},{b});waitx();
  297.         case    (@xtype,
  298.             101,
  299.             {
  300.             CloseAllMemo;
  301.             mwrite(TEMP2|{_mopres.wrk},memono);
  302.             im({No});
  303.             },
  304.             201,
  305.             {
  306.             CloseAllMemo;
  307.             mwrite(TEMP2|{_mopres.wrk},memono);
  308.             im({No})
  309.             },
  310.             105,
  311.             {
  312.             CloseAllMemo;
  313.             mclear(memono);
  314.             case    (@filechk(TEMP2|{_mopres.wrk}),
  315.                 {Yes},{mread(TEMP2|{_mopres.wrk},memono)}
  316.                 );
  317.             im({No})},
  318.             205,
  319.             {
  320.             CloseAllMemo;
  321.             mclear(memono);
  322.             case    (@filechk(TEMP2|{_mopres.wrk}),
  323.                 {Yes},
  324.                 {mread(TEMP2|{_mopres.wrk},memono)}
  325.                 );
  326.             im({No});
  327.             },
  328.             ,{im({Yes})});
  329.         })};
  330. /*    アップロード制御ファイル新規作成処理    */
  331. %SETUP1    {
  332.     loop    ({footnote({アップロード先は？});SNDMSG({erande_f.snd});
  333.         select    ({アップロード先は？},
  334.             Wtime4,{im({No})},
  335.             { テキストメール },{AUTOmail;im({Yes})},
  336.             {   ボード       },{AUTOforum;im({Yes})},
  337.             {データライブラリ},{AUTOdlib;im({Yes})},
  338.             {シスオペ宛メール},{AUTOsmail;im({Yes})},
  339.             {  プロフィール  },{AUTOprof;im({Yes})},
  340.             { メモの書き込み },{AUTOwho;im({Yes})},
  341.             { 爆裂自動トーク },{AUTObenon;im({Yes})},
  342.             {    終    了    },{im({No})}
  343.             )});
  344.     CloseAllMemo;mclear(memono);
  345.     case    (@filechk(TEMP2|{_mopres.wrk}),
  346.         {Yes},{mread(TEMP2|{_mopres.wrk},memono)});
  347.     };
  348. %RESERV    {
  349.     case    (reserv,
  350.         { 1},{im({})},
  351.         { 2},{im({保留;})},
  352.         ,{im({})}
  353.         );
  354.     };
  355. /*    書き込みメモファイル作成処理    */
  356.     %MEMOset{%a　@plane({c｢Wコマンドで表示される｣メモ内容を登録する\n}|
  357.     {tメモ内容/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
  358.     {s              / 登録 / 取消 \n},);
  359.     memoK:=    @head(@getline(a,1,1),{\n});
  360.         mkdir2(TEMP);%file1    @crefile(UP,{res});
  361.         write(UP2|file1,memoK);file:=UP2|file1};
  362. /*    書き込みメモアップロードファイル更新処理    */
  363.     %MEMOrset{    [text]
  364.     memoK:=@read(text);
  365.     %a　@plane({c｢Wコマンドで表示される｣メモ内容を登録する\n}|
  366.     {tメモ内容/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
  367.     {s              / 登録 / 取消 \n},memoK);
  368.     memoK:=    @head(@getline(a,1,1),{\n});
  369.         mkdir2(TEMP);%file1    @crefile(UP,{res});
  370.         write(UP2|file1,memoK);file:=UP2|file1};
  371. /*    爆裂自動トークアップ制御文作成    */
  372. %AUTObenon{
  373.     footnote({爆裂自動トーク送信制御文作成});
  374.     var benon[80];
  375.     var file[64];
  376.     var ok[2];
  377.     loop    ({SNDMSG({nyuryo_f.snd});
  378.         %a    @plane(    {c爆裂自動トーク送信\n}|
  379.                 {tトーク先ＩＤ  /\n}|
  380.                 {s              / 検索 \n}|
  381.                 {t 爆裂ファイル /\n}|
  382.                 {s              / ﾌｧｲﾙ一覧/ 新規作成 \n}|
  383.                 {r 送信予約     /予約  /保留\n}|
  384.                 {s              / 登録 / 取消 \n},
  385.                 benon,file,1);
  386.         benon:=    @head(@getline(a,1,1),{\n});
  387.         %search    @head(@getline(a,2,1),{\n});
  388.         file:=    @head(@getline(a,3,1),{\n});
  389.         %sel    @head(@getline(a,4,1),{\n});
  390.         %reserv    @head(@getline(a,5,1),{\n});
  391.         ok:=    @head(@getline(a,6,1),{\n});
  392.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  393.         case    (search,
  394.             { 1},
  395.             {
  396.             %id1    @HDsearch;
  397.             case    (id1<>{},
  398.                 {Yes},
  399.                 {
  400.                 case    (benon<>{},
  401.                     {Yes},{benon:=benon|{,}|id1},
  402.                     {No},{benon:=id1}
  403.                     );
  404.                 });
  405.             im({Yes})}
  406.             );
  407.         case    (sel,
  408.             { 1},{KAKUNIN;im({Yes})},
  409.             { 2},{SHINKI;im({Yes})}
  410.             );
  411.         case    (ok,
  412.             { 1},
  413.             {case    (file={},
  414.                 {No},
  415.                 {
  416.                 case    (@getchar(file,2,2)={:\},
  417.                     {No},{footnote(ERRMSG);im({Yes})},
  418.                     {Yes},
  419.                     {write(TEMP2|{_mopres.wrk},@RESERV|
  420.                     {benon=}|benon|{;}|{file=}|file|{;\n});
  421.                         im({No});
  422.                     });
  423.                 },
  424.                 {Yes},
  425.                 {
  426.                 im({Yes})
  427.                 });
  428.             },
  429.             { 2},{im({No})}
  430.             )})};
  431. /*    テキストメールアップ制御文作成    */
  432. %AUTOmail{
  433.     footnote({テキストメール送信制御文作成});
  434.     var mail[40];
  435.     var title[40];
  436.     var file[64];
  437.     var ok[2];
  438.     loop    ({SNDMSG({nyuryo_f.snd});
  439.         %a    @plane(    {cテキストメール送信\n}|
  440.                 {t  送信先ＩＤ  /\n}|
  441.                 {s              / 検索 \n}|
  442.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  443.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  444.                 {t 送信ファイル /\n}|
  445.                 {s              / ﾌｧｲﾙ一覧/ 新規作成 \n}|
  446.                 {r 送信予約     /予約  /保留\n}|
  447.                 {s              / 登録 / 取消 \n},
  448.                 mail,title,file,1);
  449.         mail:=    @head(@getline(a,1,1),{\n});
  450.         %search    @head(@getline(a,2,1),{\n});
  451.         title:=    @head(@getline(a,3,1),{\n});
  452.         file:=    @head(@getline(a,4,1),{\n});
  453.         %sel    @head(@getline(a,5,1),{\n});
  454.         %reserv    @head(@getline(a,6,1),{\n});
  455.         ok:=    @head(@getline(a,7,1),{\n});
  456.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  457.         case    (search,
  458.             { 1},
  459.             {
  460.             %id1    @IDsearch;
  461.             case    (id1<>{},
  462.                 {Yes},
  463.                 {
  464.                 case    (mail<>{},
  465.                     {Yes},{mail:=mail|{,}|id1},
  466.                     {No},{mail:=id1}
  467.                     );
  468.                 });
  469.             im({Yes})}
  470.             );
  471.         case    (sel,
  472.             { 1},{KAKUNIN;im({Yes})},
  473.             { 2},{SHINKI;im({Yes})}
  474.             );
  475.         case    (ok,
  476.             { 1},
  477.             {case    (title={}||file={},
  478.                 {No},
  479.                 {
  480.                 case    (@getchar(file,2,2)={:\},
  481.                     {No},{footnote(ERRMSG);im({Yes})},
  482.                     {Yes},
  483.                     {write(TEMP2|{_mopres.wrk},@RESERV|
  484.                     {mail=}|mail|{;}|{file=}|file|{;}|
  485.                         {title=}|title|CRLF);
  486.                         im({No});
  487.                     });
  488.                 },
  489.                 {Yes},
  490.                 {
  491.                 im({Yes})
  492.                 });
  493.             },
  494.             { 2},{im({No})}
  495.             )})};
  496.  
  497. /*    ボードへの書き込み制御文作成    */
  498. %AUTOforum{
  499.     footnote({ボード制御文作成});
  500.     var forum[8];
  501.     var mes[3];
  502.     var reply[4];
  503.     var title[40];
  504.     var file[64];
  505.     var ok[2];
  506.     loop    ({SNDMSG({nyuryo_f.snd});
  507.         %a    @plane(    {cボードへの新規発言\n}|
  508.                 {t ネット名 /xxxxxxxx\n}|
  509.                 {cSIGボードの場合はネット名の代わりに\n}|
  510.                 {cパスワードを入力して下さい\n}|
  511.                 {t  ボード番号  /xxxxx\n}|
  512.                 {tコメント元番号/xxx\n}|
  513.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  514.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  515.                 {t 発言ファイル /\n}|
  516.                 {s              / ﾌｧｲﾙ一覧 / 新規作成 \n}|
  517.                 {r 送信予約     /予約  /保留\n}|
  518.                 {s              / 登録 / 取消 \n},
  519.                 NET,mes,reply,title,file,1);
  520.         forum:=    @head(@getline(a,1,1),{\n});
  521.         mes:=    @head(@getline(a,2,1),{\n});
  522.         reply:=    @head(@getline(a,3,1),{\n});
  523.         title:=    @head(@getline(a,4,1),{\n});
  524.         file:=    @head(@getline(a,5,1),{\n});
  525.         %sel    @head(@getline(a,6,1),{\n});
  526.         %reserv    @head(@getline(a,7,1),{\n});
  527.         ok:=    @head(@getline(a,8,1),{\n});
  528.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  529.         case    (sel,
  530.             { 1},{KAKUNIN;im({Yes})},
  531.             { 2},{SHINKI;im({Yes})}
  532.             );
  533.         case    (ok,
  534.             { 1},
  535.             {
  536.             case    (@getchar(file,2,2)={:\},
  537.                 {No},
  538.                 {footnote(ERRMSG);im({Yes})},
  539.                 {Yes},
  540.                 {
  541.                 write(TEMP2|{_mopres.wrk},@RESERV|
  542.                     {forum=}|forum|{;}|{mes=}|mes|{;}|
  543.                     {reply=}|reply|{;}|{file=}|file|{;}|
  544.                     {title=}|title|CRLF);
  545.                 im({No})})},
  546.             { 2},{im({No})}
  547.             )})};
  548. /*    データライブラリ制御文作成    */
  549. %AUTOdlib{
  550.     footnote({データライブラリへの登録制御文作成});
  551.     var forum[12];
  552.     var libno[3];
  553.     var dataname[12];
  554.     var keyword[80];
  555.     var datatype[3];
  556.     var dtype[2];
  557.     var datafile[64];
  558.     var docfile[64];
  559.     var file[64];
  560.     var ok[2];
  561.     loop    ({
  562.         SNDMSG({nyuryo_f.snd});
  563.         %a    @plane(    {cデータライブラリへの登録\n}|
  564.                 {t ネット名 /xxxxxxxx\n}|
  565.                 {cSIGボードの場合はネット名の代わりに\n}|
  566.                 {cパスワードを入力して下さい\n}|
  567.                 {tライブラリ番号/xxx\n}|
  568.                 {t   データ名   /xxxxxxxxxxxx\n}|
  569.                 {t  コメント  /\n}|
  570.                 {r データタイプ /バイナリ/テキスト/NAPLPS\n}|
  571.                 {tデータファイル/\n}|
  572.                 {s              / 選択 \n}|
  573.                 {t 概要ファイル /\n}|
  574.                 {s              / ﾌｧｲﾙ一覧/ 新規作成 \n}|
  575.                 {r 送信予約     /予約  /保留\n}|
  576.                 {s              / 登録 / 取消 \n},
  577.                 @SCANPW(libno),libno,dataname,keyword,dtype,
  578.                 datafile,docfile,1);
  579.         forum:=        @head(@getline(a,1,1),{\n});
  580.         libno:=        @head(@getline(a,2,1),{\n});
  581.         dataname:=    @head(@getline(a,3,1),{\n});
  582.         keyword:=    @head(@getline(a,4,1),{\n});
  583.         dtype:=        @head(@getline(a,5,1),{\n});
  584.         datafile:=    @head(@getline(a,6,1),{\n});
  585.         %sel1        @head(@getline(a,7,1),{\n});
  586.         docfile:=    @head(@getline(a,8,1),{\n});
  587.         %sel2        @head(@getline(a,9,1),{\n});
  588.         %reserv        @head(@getline(a,10,1),{\n});
  589.         ok:=        @head(@getline(a,11,1),{\n});
  590.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  591.         case    (sel1,
  592.             { 1},
  593.             {
  594.             file:=datafile;
  595.             case    (dtype,
  596.                 { 2},{KAKUNIN},
  597.                 { 3},{KAKUNIN2},
  598.                 ,{file:=@FILEsel1}
  599.                 );
  600.             datafile:=file;
  601.             docfile:=@body(datafile,,{.})|{.ggg};
  602.             case(@filechk(docfile),{No},{docfile:={}});
  603.             im({Yes});
  604.             });
  605.         case    (sel2,
  606.             { 1},
  607.             {
  608.             file:=docfile;
  609.             KAKUNIN;
  610.             docfile:=file;
  611.             im({Yes});
  612.             },
  613.             { 2},
  614.             {
  615.             file:=docfile;
  616.             SHINKI;
  617.             docfile:=file;
  618.             im({Yes});
  619.             });
  620.         case    (ok,
  621.             { 1},
  622.             {
  623.             case    (@getchar(datafile,2,2)={:\},
  624.                 {No},
  625.                 {footnote(ERRMSG);im({Yes})},
  626.                 {Yes},
  627.                 {
  628.                 %datatype @case    (dtype,
  629.                         { 1},{im({BIN})},
  630.                         { 2},{im({TXT})},
  631.                         { 3},{im({NAP})},
  632.                         ,{im({BIN})}
  633.                         );
  634.             case    (forum<>{} && libno<>{} && dataname<>{} 
  635.                     && keyword<>{} && @filechk(datafile),
  636.                 {Yes},
  637.                 {    write(TEMP2|{_mopres.wrk},@RESERV|
  638.                     {forumlib=}|forum|{;}|
  639.                     {libno=}|libno|{;}|
  640.                     {dataname=}|dataname|{;}|
  641.                     {keyword=}|keyword|{;}|
  642.                     {datatype=}|datatype|{;}|
  643.                     {datafile=}|datafile|{;}|
  644.                     {docfile=}|docfile|{;}|{\n});
  645.                     im({No});
  646.                 },
  647.                 {No},{im({Yes})})
  648.                 });
  649.             },
  650.             { 2},{im({No})}
  651.             )})};
  652. /*    シスオペ宛メールアップ制御文作成    */
  653. %AUTOsmail{
  654.     footnote({シスオペ宛メール送信制御文作成});
  655.     var forum[8];var title[40];var file[64];var ok[2];
  656.     loop    ({
  657.         SNDMSG({nyuryo_f.snd});
  658.         %a    @plane(    {cシスオペ宛メール送信\n}|
  659.                 {t ネット名 /xxx\n}|
  660.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  661.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  662.                 {t 送信ファイル /\n}|
  663.                 {s              / ﾌｧｲﾙ一覧 / 新規作成  \n}|
  664.                 {r 送信予約     /予約  /保留\n}|
  665.                 {s              / 登録 / 取消 \n},
  666.                 NET,title,file,1);
  667.         forum:=    @head(@getline(a,1,1),{\n});
  668.         title:=    @head(@getline(a,2,1),{\n});
  669.         file:=    @head(@getline(a,3,1),{\n});
  670.         %sel    @head(@getline(a,4,1),{\n});
  671.         %reserv    @head(@getline(a,5,1),{\n});
  672.         ok:=    @head(@getline(a,6,1),{\n});
  673.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  674.         case    (sel,
  675.             { 1},{KAKUNIN;im({Yes})},
  676.             { 2},{SHINKI;im({Yes})}
  677.             );
  678.         case    (ok,
  679.             { 1},
  680.             {case    (title={}||file={},
  681.                 {No},
  682.                 {
  683.  
  684.                 case    (@getchar(file,2,2)={:\},
  685.                     {No},
  686.                     {footnote(ERRMSG);im({Yes})},
  687.                     {Yes},
  688.                     {write(TEMP2|{_mopres.wrk},@RESERV|
  689.                     {sysmail=}|forum|{;}|{file=}|file|
  690.                         {;}|{title=}|title|CRLF);
  691.                         im({No});
  692.                     });
  693.                 },
  694.                 {Yes},
  695.                 {
  696.                 im({Yes})
  697.                 });
  698.             },
  699.             { 2},{im({No})}
  700.             )})};
  701. /*    プロフィール情報制御文作成    */
  702. %AUTOprof{
  703.     footnote({プロフィール情報登録制御文作成});
  704.     var file[64];var ok[2];
  705.     loop    ({
  706.         %a    @plane(    {cプロフィール情報登録\n}|
  707.                 {t 登録ファイル /\n}|
  708.                 {s              / ﾌｧｲﾙ一覧/ 新規作成  \n}|
  709.                 {r 送信予約     /予約  /保留\n}|
  710.                 {s              / 登録 / 取消 \n},
  711.                 file,1);
  712.         file:=    @head(@getline(a,1,1),{\n});
  713.         %sel    @head(@getline(a,2,1),{\n});
  714.         %reserv    @head(@getline(a,3,1),{\n});
  715.         ok:=    @head(@getline(a,4,1),{\n});
  716.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  717.         case    (sel,
  718.             { 1},{KAKUNIN;im({Yes})},
  719.             { 2},{SHINKI;im({Yes})}
  720.             );
  721.         case    (ok,
  722.             { 1},
  723.             {
  724.             case    (@getchar(file,2,2)={:\},
  725.                 {No},{footnote(ERRMSG);im({Yes})},
  726.                 {Yes},
  727.                 {
  728.                 write(TEMP2|{_mopres.wrk},@RESERV|
  729.                     {profile=}|{;}|{file=}|file|{;\n});
  730.                 im({No})})},
  731.             { 2},{im({No})}
  732.             )})};
  733. /*    メモ書き込み制御文作成    */
  734. %AUTOwho{footnote({メモ書き込み制御文作成；｢WHOコマンドで出てくるメモです｣});
  735.     var file[64];var memoK[32];var ok[2];
  736.     loop    ({%a    @plane(    {cメモ書き込み情報登録\n}|
  737.                 {t 登録ファイル /\n}|
  738.                 {s              / ﾌｧｲﾙ一覧/ 新規作成  \n}|
  739.                 {r 送信予約     /予約  /保留\n}|
  740.                 {s              / 登録 / 取消 \n},
  741.                 file,1    );
  742.         file:=    @head(@getline(a,1,1),{\n});
  743.         %sel    @head(@getline(a,2,1),{\n});
  744.         %reserv    @head(@getline(a,3,1),{\n});
  745.         ok:=    @head(@getline(a,4,1),{\n});
  746.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  747.         case    (sel,
  748.             { 1},{KAKUNIN;im({Yes})},
  749.             { 2},{MEMOset;im({Yes})});
  750.         case    (ok,
  751.             { 1},
  752.             {
  753.             case    (@getchar(file,2,2)={:\},
  754.                 {No},{footnote(ERRMSG);im({Yes})},
  755.                 {Yes},
  756.                 {
  757.                 write(TEMP2|{_mopres.wrk},@RESERV|
  758.                     {whomemo=}|{;}|{file=}|file|{;\n});
  759.                 im({No})})},
  760.             { 2},{im({No})}
  761.             )})};
  762. /*    アップロード制御ファイル更新    */
  763. %UPDATE1{
  764.     var    LineNo    [6];
  765.     LineNo:=@xlinenum;
  766.     %MaxLine@nolmemo(memono);
  767.     case    (LineNo>MaxLine,
  768.         {Yes},{LineNo:=MaxLine},
  769.         {No},{case(LineNo<1,{Yes},{LineNo:=1})}
  770.         );
  771.     %upld    @memo(memono,LineNo,1);
  772.     case    (@head(upld,{=}),
  773.         {sysmail},    {UPDATE(@UPDsmail(upld))},
  774.         {保留;sysmail},    {UPDATE(@UPDsmail(upld))},
  775.         {benon},    {UPDATE(@UPDbenon(upld))},
  776.         {保留;benon},    {UPDATE(@UPDbenon(upld))},
  777.         {mail},        {UPDATE(@UPDmail(upld))},
  778.         {保留;mail},    {UPDATE(@UPDmail(upld))},
  779.         {forum},    {UPDATE(@UPDforum(upld))},
  780.         {保留;forum},    {UPDATE(@UPDforum(upld))},
  781.         {forumlib},    {UPDATE(@UPDdlib(upld))},
  782.         {保留;forumlib},{UPDATE(@UPDdlib(upld))},
  783.         {profile},    {UPDATE(@UPDprof(upld))},
  784.         {保留;profile},    {UPDATE(@UPDprof(upld))},
  785.         {whomemo},    {UPDATE(@UPDmemo(upld))},
  786.         {保留;whomemo},    {UPDATE(@UPDmemo(upld))},
  787.         ,        {CloseAllMemo}
  788.         );
  789.     };
  790. %UPDATE    {
  791.     [new]
  792.     case    (new,
  793.         upld,{CloseAllMemo},    /* 変更無し */
  794.         {},        /* 削除 */
  795.         {CloseAllMemo;
  796.         mclear(memono);
  797.         case(LineNo>1,{Yes},
  798.             {madd(memono,@read(TEMP2|{_mopres.wrk},1,LineNo-1))});
  799.         case(LineNo<MaxLine,{Yes},
  800.             {madd(memono,@read(TEMP2|{_mopres.wrk},LineNo+1))});
  801.         mwrite(TEMP2|{_mopres.wrk},memono);
  802.         },
  803.         ,        /* 変更あり */
  804.         {
  805.         CloseAllMemo;
  806.         mclear(memono);
  807.         case    (LineNo>1,
  808.             {Yes},
  809.             {madd(memono,@read(TEMP2|{_mopres.wrk},1,LineNo-1))}
  810.             );
  811.         madd(memono,new);
  812.         case    (LineNo<MaxLine,
  813.             {Yes},
  814.             {madd(memono,@read(TEMP2|{_mopres.wrk},LineNo+1))}
  815.             );
  816.         mwrite(TEMP2|{_mopres.wrk},memono);
  817.         })};
  818. /*    テキストメールアップ制御文更新    */
  819. %UPDbenon{[upld]
  820.     footnote({爆裂自動トーク送信制御文更新});
  821.     var benon[80];
  822.     var file[64];
  823.     var ok[2];
  824.     var reserv[2];
  825.     reserv:=@case    (@head(upld,{;}),
  826.             {保留},{im({ 2})},
  827.             ,{im({ 1})}
  828.             );
  829.     benon:=    @head(@body(upld,{benon=},{;}),{;});
  830.     file:=    @head(@body(upld,{file=},{;}),{;});
  831.     loop    ({SNDMSG({nyuryo_f.snd});
  832.         %a    @plane(    {c爆裂自動トーク送信\n}|
  833.                 {tトーク先ＩＤ  /\n}|
  834.                 {s              / 検索 \n}|
  835.                 {t 爆裂ファイル /\n}|
  836.                 {s              / ﾌｧｲﾙ一覧 }|
  837.                         {/ 新規作成 / 内容更新\n}|
  838.                 {r 送信予約     /予約  /保留\n}|
  839.                 {s              / 登録 / 削除/ 取消 \n},
  840.                 benon,file,reserv);
  841.         benon:=    @head(@getline(a,1,1),{\n});
  842.         %search    @head(@getline(a,2,1),{\n});
  843.         file:=    @head(@getline(a,3,1),{\n});
  844.         %sel    @head(@getline(a,4,1),{\n});
  845.         reserv:=@head(@getline(a,5,1),{\n});
  846.         ok:=    @head(@getline(a,6,1),{\n});
  847.         case    (search,
  848.             { 1},
  849.             {
  850.             %id1    @HDsearch;
  851.             case    (id1<>{},
  852.                 {Yes},
  853.                 {
  854.                 case    (benon<>{},
  855.                     {Yes},{benon:=benon|{,}|id1},
  856.                     {No},{benon:=id1}
  857.                     );
  858.                 });
  859.             im({Yes})}
  860.             );
  861.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  862.             { 2},{SHINKI;im({Yes})},
  863.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  864.         case    (ok,{ 1},{
  865.             case    (@getchar(file,2,2)={:\},
  866.                 {No},{footnote(ERRMSG);im({Yes})},
  867.                 {Yes},
  868.                 {im(@RESERV|{benon=}|benon|{;}|
  869.                     {file=}|file|{;\n})}
  870.                 );
  871.             },
  872.             { 2},{im({})},{ 3},{im(upld)},
  873.             ,{case(search={ 0}&&sel={ 0},{Yes},{im(upld)})}
  874.             )})};
  875. %UPDmail{[upld]
  876.     footnote({テキストメール送信制御文更新});
  877.     var mail[40];
  878.     var title[50];
  879.     var file[64];
  880.     var ok[2];
  881.     var reserv[2];
  882.     reserv:=@case    (@head(upld,{;}),
  883.             {保留},{im({ 2})},
  884.             ,{im({ 1})}
  885.             );
  886.     mail:=    @head(@body(upld,{mail=},{;}),{;});
  887.     title:=    @body(upld,{title=},{\n});
  888.     file:=    @head(@body(upld,{file=},{;}),{;});
  889.     loop    ({SNDMSG({nyuryo_f.snd});
  890.         %a    @plane(    {cテキストメール送信\n}|
  891.                 {t  送信先ＩＤ  /\n}|
  892.                 {s              / 検索 \n}|
  893.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  894.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  895.                 {t 送信ファイル /\n}|
  896.                 {s              / ﾌｧｲﾙ一覧 }|
  897.                         {/ 新規作成 / 内容更新 \n}|
  898.                 {r 送信予約     /予約 /保留\n}|
  899.                 {s              / 登録 / 削除 / 取消 \n},
  900.                 mail,title,file,reserv);
  901.         mail:=    @head(@getline(a,1,1),{\n});
  902.         %search    @head(@getline(a,2,1),{\n});
  903.         title:=    @head(@getline(a,3,1),{\n});
  904.         file:=    @head(@getline(a,4,1),{\n});
  905.         %sel    @head(@getline(a,5,1),{\n});
  906.         reserv:=@head(@getline(a,6,1),{\n});
  907.         ok:=    @head(@getline(a,7,1),{\n});
  908.         case    (search,
  909.             { 1},
  910.             {
  911.             %id1    @IDsearch;
  912.             case    (id1<>{},
  913.                 {Yes},
  914.                 {
  915.                 case    (mail<>{},
  916.                     {Yes},{mail:=mail|{,}|id1},
  917.                     {No},{mail:=id1}
  918.                     );
  919.                 });
  920.             im({Yes})}
  921.             );
  922.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  923.             { 2},{SHINKI;im({Yes})},
  924.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  925.         case    (ok,{ 1},{
  926.             case    (@getchar(file,2,2)={:\},
  927.                 {No},{footnote(ERRMSG);im({Yes})},
  928.                 {Yes},
  929.                 {im(@RESERV|{mail=}|mail|{;}|{date=;}|
  930.                     {file=}|file|{;}|{title=}|title|CRLF)}
  931.                 );
  932.             },
  933.             { 2},{im({})},{ 3},{im(upld)},
  934.             ,{case(search={ 0}&&sel={ 0},{Yes},{im(upld)})}
  935.             )})};
  936. /*    ボード制御文更新    */
  937. %UPDforum{
  938.     [upld]
  939.     footnote({ボードへの発言制御文更新});
  940.     var forum[8];
  941.     var mes[3];
  942.     var reply[4];
  943.     var title[44];
  944.     var file[64];
  945.     var ok[2];
  946.     var reserv[2];
  947.     reserv:=@case    (@head(upld,{;}),
  948.             {保留},{im({ 2})},
  949.             ,{im({ 1})}
  950.             );
  951.     forum:=    @head(@body(upld,{forum=},{;}),{;});
  952.     mes:=    @head(@body(upld,{mes=},{;}),{;});
  953.     reply:=    @head(@body(upld,{reply=},{;}),{;});
  954.     title:=    @body(upld,{title=},{\n});
  955.     file:=    @head(@body(upld,{file=},{;}),{;});
  956.     loop    ({SNDMSG({nyuryo_f.snd});
  957.         %a    @plane(    {cボードへの発言\n}|
  958.                 {t ネット名 /xxxxxx\n}|
  959.                 {cSIGボードの場合はネット名の代わりに\n}|
  960.                 {cパスワードを入力して下さい\n}|
  961.                 {t  ボード番号  /xxx\n}|
  962.                 {tコメント元番号/xxxx\n}|
  963.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  964.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  965.                 {t 発言ファイル /\n}|
  966.                 {s              / ﾌｧｲﾙ一覧 /}|
  967.                         { 新規作成 / 内容更新 \n}|
  968.                 {r 送信予約     /予約 /保留\n}|
  969.                 {s              / 登録 / 削除 / 取消 \n},
  970.                 forum,mes,reply,title,file,reserv);
  971.         forum:=    @head(@getline(a,1,1),{\n});
  972.         mes:=    @head(@getline(a,2,1),{\n});
  973.         reply:=    @head(@getline(a,3,1),{\n});
  974.         title:=    @head(@getline(a,4,1),{\n});
  975.         file:=    @head(@getline(a,5,1),{\n});
  976.         %sel    @head(@getline(a,6,1),{\n});
  977.         reserv:=@head(@getline(a,7,1),{\n});
  978.         ok:=    @head(@getline(a,8,1),{\n});
  979.         case    (sel,
  980.             { 1},{file:=@FILEsel1;im({Yes})},
  981.             { 2},{SHINKI;im({Yes})},
  982.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  983.         case    (ok,{ 1},{
  984.             case    (@getchar(file,2,2)={:\},
  985.                 {No},{footnote(ERRMSG);im({Yes})},
  986.                 {Yes},
  987.                 {im(@RESERV|{forum=}|forum|{;}|{mes=}|
  988.                     mes|{;}|{reply=}|reply|{;}|{file=}|
  989.                     file|{;}|{title=}|title|CRLF)}
  990.                 )},
  991.             { 2},{im({})},{ 3},{im(upld)},
  992.             ,{case(sel={ 0},{Yes},{im(upld)})}
  993.             )})};
  994. /*    データライブラリ制御文更新    */
  995. %UPDdlib{[upld]
  996.     footnote({データライブラリへの登録制御文更新});
  997.     var forum[12];
  998.     var libno[3];
  999.     var dataname[40];
  1000.     var keyword[80];
  1001.     var datatype[3];
  1002.     var datafile[64];
  1003.     var docfile[64];
  1004.     var ok[2];
  1005.     var file[64];
  1006.     var dtype[2];
  1007.     var reserv[2];
  1008.     reserv:=@case    (@head(upld,{;}),
  1009.             {保留},{im({ 2})},
  1010.             ,{im({ 1})}
  1011.             );
  1012.     forum:=        @tail(upld,{forumlib=},{;});
  1013.     libno:=        @tail(upld,{libno=},{;});
  1014.     dataname:=    @tail(upld,{dataname=},{;});
  1015.     keyword:=    @tail(upld,{keyword=},{;});
  1016.     datatype:=    @tail(upld,{datatype=},{;});
  1017.     dtype:=        @case(datatype,    {BIN},{im({ 1})},{bin},{im({ 1})},
  1018.                     {TXT},{im({ 2})},{txt},{im({ 2})},
  1019.                     {NAP},{im({ 3})},{nap},{im({NAP})},
  1020.                     ,{im({ 1})});
  1021.     datafile:=    @tail(upld,{datafile=},{;});
  1022.     docfile:=    @tail(upld,{docfile=},{;});
  1023.     loop    ({SNDMSG({nyuryo_f.snd});
  1024.         %a    @plane(    {cデータライブラリへの登録\n}|
  1025.                 {t ネット名 /xxxxxxxx\n}|
  1026.                 {cSIGボードの場合はネット名の代わりに\n}|
  1027.                 {cパスワードを入力して下さい\n}|
  1028.                 {tライブラリ番号/xxx\n}|
  1029.                 {t   データ名   /xxxxxxxxxxxx\n}|
  1030.                 {t  コメント    /\n}|
  1031.                 {r データタイプ /バイナリ/テキスト/NAPLPS\n}|
  1032.                 {tデータファイル/\n}|
  1033.                 {s              ファイル一覧/ 選択 \n}|
  1034.                 {t 概要ファイル /\n}|
  1035.                 {s              ファイル一覧/ 選択 \n}|
  1036.                 {r 送信予約     /予約 /保留\n}|
  1037.                 {s              / 登録 / 削除 / 取消 \n},
  1038.                 forum,libno,dataname,keyword,dtype,
  1039.                 datafile,docfile,reserv);
  1040.         forum:=        @head(@getline(a,1,1),{\n});
  1041.         libno:=        @head(@getline(a,2,1),{\n});
  1042.         dataname:=    @head(@getline(a,3,1),{\n});
  1043.         keyword:=    @head(@getline(a,4,1),{\n});
  1044.         dtype:=        @head(@getline(a,5,1),{\n});
  1045.         datafile:=    @head(@getline(a,6,1),{\n});
  1046.         %sel1        @head(@getline(a,7,1),{\n});
  1047.         docfile:=    @head(@getline(a,8,1),{\n});
  1048.         %sel2        @head(@getline(a,9,1),{\n});
  1049.         reserv:=    @head(@getline(a,10,1),{\n});
  1050.         ok:=        @head(@getline(a,11,1),{\n});
  1051.         case    (sel1,
  1052.             { 1},
  1053.             {
  1054.             file:=datafile;
  1055.             case    (dtype,
  1056.                 { 2},{KAKUNIN},
  1057.                 { 3},{KAKUNIN2},
  1058.                 ,{file:=@FILEsel1}
  1059.                 );
  1060.             datafile:=file;
  1061.             im({Yes})
  1062.             });
  1063.         case    (sel2,
  1064.             { 1},
  1065.             {
  1066.             file:=docfile;
  1067.             KAKUNIN;
  1068.             docfile:=file;
  1069.             im({Yes})
  1070.             },
  1071.             { 2},
  1072.             {
  1073.             file:=docfile;
  1074.             SHINKI;
  1075.             docfile:=file;
  1076.             im({Yes});
  1077.             });
  1078.         case    (ok,{ 1},
  1079.             {case(@getchar(datafile,2,2)={:\},
  1080.                 {No},{footnote(ERRMSG);im({Yes})},
  1081.                 {Yes},
  1082.                 {
  1083.                 datatype:=
  1084.                     @case(dtype,{ 1},{im({BIN})},
  1085.                         { 2},{im({TXT})},
  1086.                         { 3},{im({NAP})},
  1087.                         ,{im({BIN})});
  1088.                 im(@RESERV|{forumlib=}|forum|{;}|
  1089.                     {libno=}|libno|{;}|
  1090.                     {dataname=}|dataname|{;}|
  1091.                     {keyword=}|keyword|{;}|
  1092.                     {datatype=}|datatype|{;}|
  1093.                     {datafile=}|datafile|{;}|
  1094.                     {docfile=}|docfile|{;\n})}
  1095.                 )},
  1096.             { 2},{im({})},{ 3},{im(upld)},
  1097.             ,{case(sel1={ 0}&&sel2={ 0},{Yes},{im(upld)})}
  1098.             )})};
  1099. /*    シスオペ宛メールアップ制御文更新    */
  1100. %UPDsmail{[upld]
  1101.     footnote({シスオペ宛メール送信制御文更新});
  1102.     var forum[8];
  1103.     var title[40];
  1104.     var file[64];
  1105.     var ok[2];
  1106.     var reserv[2];
  1107.     reserv:=@case    (@head(upld,{;}),
  1108.             {保留},{im({ 2})},
  1109.             ,{im({ 1})}
  1110.             );
  1111.     forum:=    @head(@body(upld,{sysmail=},{;}),{;});
  1112.     title:=    @body(upld,{title=},{\n});
  1113.     file:=    @head(@body(upld,{file=},{;}),{;});
  1114.     loop    ({SNDMSG({nyuryo_f.snd});
  1115.         %a    @plane(    {cシスオペ宛メール送信\n}|
  1116.                 {t ネット名 /xxx\n}|
  1117.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  1118.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  1119.                 {t 送信ファイル /\n}|
  1120.                 {s              / ﾌｧｲﾙ一覧 /}|
  1121.                         { 新規作成 / 内容更新 \n}|
  1122.                 {r 送信予約     /予約 /保留\n}|
  1123.                 {s              / 登録 / 削除 / 取消 \n},
  1124.                 NET,title,file,reserv);
  1125.         forum:=    @head(@getline(a,1,1),{\n});
  1126.         title:=    @head(@getline(a,2,1),{\n});
  1127.         file:=    @head(@getline(a,3,1),{\n});
  1128.         %sel    @head(@getline(a,4,1),{\n});
  1129.         reserv:=@head(@getline(a,5,1),{\n});
  1130.         ok:=    @head(@getline(a,6,1),{\n});
  1131.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  1132.             { 2},{SHINKI;im({Yes})},
  1133.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  1134.         case    (ok,{ 1},{
  1135.             case    (@getchar(file,2,2)={:\},
  1136.                 {No},{footnote(ERRMSG);im({Yes})},
  1137.                 {Yes},
  1138.                 {im({@RESERV|sysmail=}|forum|{;}|
  1139.                     {file=}|file|{;}|{title=}|title|CRLF)}
  1140.                 )},
  1141.             { 2},{im({})},{ 3},{im(upld)},
  1142.             ,{case(sel={ 0},{Yes},{im(upld)})}
  1143.             )})};
  1144. /*    プロフィール情報書き込み制御文更新    */
  1145. %UPDprof{[upld]
  1146.     footnote({プロフィール情報登録制御文更新});
  1147.     var    file    [64];    var    ok    [2];
  1148.     var    reserv    [2];
  1149.     reserv:=@case    (@head(upld,{;}),
  1150.             {保留},{im({ 2})},
  1151.             ,{im({ 1})}
  1152.             );
  1153.     file:=    @tail(upld,{file=},{;});
  1154.     loop    ({SNDMSG({nyuryo_f.snd});
  1155.         %a    @plane(    {cプロフィール情報登録\n}|
  1156.                 {t 登録ファイル /\n}|
  1157.                 {s              / ﾌｧｲﾙ一覧 /}|
  1158.                         { 新規作成 / 内容更新 \n}|
  1159.                 {r 送信予約     /予約 /保留\n}|
  1160.                 {s              / 登録 / 削除 / 取消 \n},
  1161.                 file,reserv);
  1162.         file:=    @head(@getline(a,1,1),{\n});
  1163.         %sel    @head(@getline(a,2,1),{\n});
  1164.         reserv:=@head(@getline(a,3,1),{\n});
  1165.         ok:=    @head(@getline(a,4,1),{\n});
  1166.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  1167.             { 2},{SHINKI;im({Yes})},
  1168.             { 3},{KOUSHIN(file,memono+1);im({Yes})});
  1169.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  1170.                 {No},{footnote(ERRMSG);im({Yes})},
  1171.                 {Yes},
  1172.                 {im(@RESERV|{profile=}|{;}|{file=}|file|{;\n})}
  1173.                 )},
  1174.             { 2},{im({})},{ 3},{im(upld)},
  1175.             ,{case(sel={ 0},{Yes},{im(upld)})}
  1176.             )})};
  1177. /*    メモ書き込み制御文更新    */
  1178. %UPDmemo{[upld]
  1179.     footnote({メモ書き込み情報登録制御文更新});
  1180.     var file[40];var memoK[32];var ok[2];
  1181.     var    reserv    [2];
  1182.     reserv:=@case    (@head(upld,{;}),
  1183.             {保留},{im({ 2})},
  1184.             ,{im({ 1})}
  1185.             );
  1186.     file:=    @tail(upld,{file=},{;});
  1187.     loop    ({%a    @plane(    {cメモ書き込み情報登録\n}|
  1188.                 {t 登録ファイル /\n}|
  1189.                 {s              / ﾌｧｲﾙ一覧/}|
  1190.                         { 新規作成/ 内容更新  \n}|
  1191.                 {r 送信予約     /予約  /保留\n}|
  1192.                 {s              / 登録 / 削除/ 取消 \n},
  1193.                 file,reserv);
  1194.         file:=    @head(@getline(a,1,1),{\n});
  1195.         %sel    @head(@getline(a,2,1),{\n});
  1196.         reserv:=@head(@getline(a,3,1),{\n});
  1197.         ok:=    @head(@getline(a,4,1),{\n});
  1198.         case    (sel,{ 1},{file:=@FILEsel1;im({Yes})},
  1199.             { 2},{MEMOset;im({Yes})},
  1200.             { 3},{MEMOrset(file);im({Yes})});
  1201.         case    (ok,{ 1},{case    (@getchar(file,2,2)={:\},
  1202.                 {No},{footnote(ERRMSG);im({Yes})},
  1203.                 {Yes},
  1204.                 {im(@RESERV|{whomemo=}|{;}|{file=}|file|{;\n})}
  1205.                 )},
  1206.             { 2},{im({})},{ 3},{im(upld)},
  1207.             ,{case(sel={ 0},{Yes},{im(upld)})}
  1208.             )})};
  1209.  
  1210. /*    アップロード予約を保留する    */
  1211. %WAIT1    {
  1212.     var    LineNo    [6];
  1213.     LineNo:=@xlinenum;
  1214.     %MaxLine@nolmemo(memono);
  1215.     case    (LineNo>MaxLine,
  1216.         {Yes},
  1217.         {LineNo:=MaxLine},
  1218.         {No},
  1219.         {case(LineNo<1,{Yes},{LineNo:=1})}
  1220.         );
  1221.     %line1    @memo(memono,LineNo,1);
  1222.     case    (@getchar(line1,1,5)={保留;}||line1={},
  1223.         {Yes},        /* 変更無し */
  1224.         {CloseAllMemo},
  1225.         {No},        /* 変更あり */
  1226.         {
  1227.         CloseAllMemo;
  1228.         mclear(memono);
  1229.         case(LineNo>1,{Yes},
  1230.             {madd(memono,@read(TEMP2|{_mopres.wrk},1,LineNo-1))});
  1231.         madd(memono,{保留;}|line1);
  1232.         case(LineNo<MaxLine,{Yes},
  1233.             {madd(memono,@read(TEMP2|{_mopres.wrk},LineNo+1))});
  1234.         mwrite(TEMP2|{_mopres.wrk},memono);
  1235.         });
  1236.     };
  1237.  
  1238. /*    アップロード保留を解除(予約)する    */
  1239. %RESERVE1{
  1240.     var    LineNo    [6];
  1241.     LineNo:=@xlinenum;
  1242.     %MaxLine@nolmemo(memono);
  1243.     case    (LineNo>MaxLine,
  1244.         {Yes},
  1245.         {LineNo:=MaxLine},
  1246.         {No},
  1247.         {case(LineNo<1,{Yes},{LineNo:=1})}
  1248.         );
  1249.     %line1    @memo(memono,LineNo,1);
  1250.     case    (@getchar(line1,1,5),
  1251.         {保留;},    /* 変更あり */
  1252.         {
  1253.         CloseAllMemo;
  1254.         mclear(memono);
  1255.         case(LineNo>1,{Yes},
  1256.             {madd(memono,@read(TEMP2|{_mopres.wrk},1,LineNo-1))});
  1257.         madd(memono,@getchar(line1,6));
  1258.         case(LineNo<MaxLine,{Yes},
  1259.             {madd(memono,@read(TEMP2|{_mopres.wrk},LineNo+1))});
  1260.         mwrite(TEMP2|{_mopres.wrk},memono);
  1261.         },
  1262.         ,{CloseAllMemo}    /* 変更なし */
  1263.         );
  1264.     };
  1265. /*    アップロード制御ファイル作成メインループ    */
  1266. %SETUP    {[memono]
  1267.     CloseAllMemo;
  1268.     delfile(TEMP2|{_mopres.wrk});
  1269.     copyfile(UP2|{_mopres.ctl},TEMP2|{_mopres.wrk});
  1270.     madd(memono,{\n});mclear(memono);
  1271.     case    (@filechk(TEMP2|{_mopres.wrk}),
  1272.         {Yes},{mread(TEMP2|{_mopres.wrk},memono)});
  1273.     loop    ({
  1274.         mopen(memono,0,21,639,459,{r});
  1275.         footnote({終了　　取消　　　　変更保留予約追加　　読込編集},
  1276.             {b});
  1277.         waitx();
  1278.         case    (@xtype,
  1279.             101,{
  1280.             delfile(UP2|{_mopres.ctl});
  1281.             copyfile(TEMP2|{_mopres.wrk},UP2|{_mopres.ctl});
  1282.             im({No})},
  1283.             201,
  1284.             {
  1285.             delfile(UP2|{_mopres.ctl});
  1286.             copyfile(TEMP2|{_mopres.wrk},UP2|{_mopres.ctl});
  1287.             im({No})
  1288.             },
  1289.             103,{im({No})},         203,{im({No})},
  1290.             106,{UPDATE1;im({Yes})}, 206,{UPDATE1;im({Yes})},
  1291.             107,{WAIT1;im({Yes})},     207,{WAIT1;im({Yes})},
  1292.             108,{RESERVE1;im({Yes})},208,{RESERVE1;im({Yes})},
  1293.             109,{SETUP1;im({Yes})},     209,{SETUP1;im({Yes})},
  1294.             111,{FILECOPY;im({Yes})},211,{FILECOPY;im({Yes})},
  1295.             112,{HANDEDIT;im({Yes})},212,{HANDEDIT;im({Yes})},
  1296.             memono,{UPDATE1;im({Yes})},
  1297.             ,{CloseAllMemo;im({Yes})});
  1298.         });
  1299.     /* ログ参照に使用したメモの削除処理 */
  1300.     loop({case(@mcheck>=memono,{Yes},{mclose(3)});im(@mcheck>=memono)});
  1301.     CloseAllMemo;
  1302.     loop    ({case    (@mlast>=memono,
  1303.             {Yes},{case(@mcheck!=@mlast,{Yes},{mopen(@mlast)});
  1304.                 mclose(3);im({Yes})},
  1305.             {No},{im({No})});
  1306.         });setcdir(CDIR)};
  1307. /*    アップロード制御ファイル作成処理    */
  1308. %ERRMSG    {ファイル名はドライブからのフルパスで指定してください};
  1309. footnote({アップロード制御ファイルのセットアップを行います});
  1310. %memono    @mlast+1;
  1311. case    (memono>8,{No},{SETUP(memono)},{Yes},{SNDMSG    ({kaknin_f.snd});
  1312.         select    ({メモ8-9の内容が消去されます  よろしいですか？},
  1313.             Wtime4,,{ は　い },{SETUP(8)},{ いいえ },)});